# -*- mode: snippet -*-
# name: ggplot geom_bar, , proportional
# key: ggplot2.geom_bar
# key: geom_bar@ggplot2
# contributor : Shuguang Sun
# --
geom_bar(
aes(fill = group),
stat = \"${1:$$(yas-choose-value '("count" "summary" "identity"))}\"${2:,
fun = "mean",}
position = \"${3:$$(yas-choose-value '("identity" "stack" "dodge" "nudge" "jitter" "jitterdodge"))}\"
)